hard graft (a perl poem)

chris (2003-10-12 04:25:15)
3084 views
0 replies
This is a Perl poem - it's a poem written in the Perl programming language, but you can read it aloud in Englsh and it works poetically. The poem is a valid Perl program, which compiles and runs through to the end without errors on Windows and UNIX systems. I have tested it on Slackware Linux and also under FreeBSD. The program doesn't actually do anything useful, but I hope you enjoy reading it anyway :)
#!/usr/bin/perl
                                                                                                                             
untie $me; open $doors;
for($ever){ join
$me, 'and', $you;
last or sleep and die;}
                                                                                                                             
map $our $future or kill my $hopes;
my %hope = ('to','be','with','you');
open $doors unless $I&  break;
$Read= each %hope and wait;
                                                                                                                             
times; shift and tell;
warn my $friends; warn
for($they_are_not_safe);
$I& sort and study time;
                                                                                                                             
wait for($me);
close $doors and sin
bind (You_and, me);
$please= wait and $see;
                                                                                                                             
if ($you){ chop( my $words);}
my %hopes& break and die ;
if($you){split 'from', $me;}
$I= 'cry' and die 'inside';
                                                                                                                             
                                                                                                                             

# a perl poem by christo
# chris lacy-hulbert
# October 12th 2003
comment